    If TypeOf p Is Persona Then
        Debug.Print "El objeto es de tipo Persona"
    End If
